home *** CD-ROM | disk | FTP | other *** search
/ Easy Baby Massage / Easy Baby Massage.iso / pc / content / main.dcr / Internal_97_selectItem.ls < prev    next >
Encoding:
Text File  |  2007-04-22  |  961 b   |  35 lines

  1. global ansshowlist, curquesnum, anslist, bingonum, questionused
  2.  
  3. on mouseUp
  4.   if anslist[curquesnum] = 0 then
  5.     n = the currentSpriteNum - 12
  6.     anslist[curquesnum] = n
  7.     if ansshowlist[curquesnum][n] = 1 then
  8.       bingonum = bingonum + 1
  9.       member("right num").text = bingonum && "/" && questionused
  10.     end if
  11.     sprite(42).showkey()
  12.     if getOne(anslist, 0) = 0 then
  13.       if bingonum = questionused then
  14.         sprite(28).member = member("congrats")
  15.       else
  16.         sprite(28).member = member("try again")
  17.       end if
  18.       member("right rate").text = bingonum * 100 / questionused && "%"
  19.       sprite(27).member = member("right rate")
  20.     end if
  21.   end if
  22. end
  23.  
  24. on mouseEnter
  25.   if anslist[curquesnum] = 0 then
  26.     sprite(the currentSpriteNum + 3).foreColor = 5
  27.     sprite(the currentSpriteNum + 6).foreColor = 5
  28.   end if
  29. end
  30.  
  31. on mouseLeave
  32.   sprite(the currentSpriteNum + 3).foreColor = 0
  33.   sprite(the currentSpriteNum + 6).foreColor = 0
  34. end
  35.